home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0080.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  1.2 KB  |  51 lines
  1. > In answering you question, I would like to see a function which allows 
  2. > the taking of noise levels from each of the 2 channels from a stereo 
  3. > sampler. This info would only need to be 2 numbers between 0 and 9, ie 
  4. > the volume of the noise being monitored at that point on each channel.
  5. > 
  6. > All you need have is a function call like eg :-
  7. > 
  8. > - var_name = ch_level_left
  9. >  
  10. > and var_name returned with a value between 0 and 9.
  11. > 
  12. > This would allow you to trigger sequences by real world noise events. 
  13. > eg burglar alarm - any sustained level of noise above the ave sound level 
  14. > (breaking windows, footsteps etc) can trigger an event ie an alarm.
  15. > 
  16. > Or you could use it to provide trippy visuals triggered in time to the 
  17. > beat of some music.
  18. > 
  19. > If this is possible, I will be one of the fisrt to buy it !!!
  20.  
  21. Try something like...
  22.  
  23. ' PAL overscan screen
  24. Screen Open 0,352,290,2,Lowres
  25. Screen Display 0,,30,,
  26. Hide On 
  27. Cls 0
  28. Circle 176,145,100 : Paint 176,145
  29. A=$BFE101 : AA=$BFE103
  30. THRESH=2
  31. '
  32. Amos To Front 
  33. Do 
  34.    S=Abs(Peek(A)-128)
  35.    SS=Abs(Peek(AA)-128)
  36.    If SS>THRESH
  37.       Colour 0,Rnd(4095) : Wait Vbl 
  38.       Fade 1 : Wait 5
  39.    End If 
  40.    If S>THRESH
  41.       Colour 1,Rnd(4095) : Wait Vbl 
  42.       Fade 1 : Wait 5
  43.    End If 
  44. Loop 
  45.  
  46.  
  47.  
  48. --
  49. Dominic Ramsey
  50.  
  51.